.set LOCALID_DAYCARE_WOMAN, 1

FourIsland_PokemonDayCare_MapScripts:: @ 817193F
@	.byte 0

FourIsland_PokemonDayCare_EventScript_DaycareWoman:: @ 8171940
@	goto_if_questlog EventScript_ReleaseEnd
@	lock
@	faceplayer
@	specialvar VAR_RESULT, GetDaycareState
@	compare VAR_RESULT, DAYCARE_EGG_WAITING
@	goto_if_eq FourIsland_PokemonDayCare_EggWaiting
@	compare VAR_RESULT, DAYCARE_ONE_MON
@	goto_if_eq FourIsland_PokemonDayCare_OneMonInDaycare
@	compare VAR_RESULT, DAYCARE_TWO_MONS
@	goto_if_eq FourIsland_PokemonDayCare_TwoMonsInDaycare
@	msgbox DayCare_Text_WouldYouLikeUsToRaiseMon, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_GiveMonToRaise
@	msgbox DayCare_Text_FineThenComeAgain
@	release
	end

FourIsland_PokemonDayCare_GiveMonToRaise:: @ 8171993
@	specialvar VAR_RESULT, CountPartyNonEggMons
@	compare VAR_RESULT, 1
@	goto_if_eq FourIsland_PokemonDayCare_OnlyOneMonInParty
@	msgbox DayCare_Text_WhichMonShouldWeRaise
@	fadescreen FADE_TO_BLACK
@	special ChooseSendDaycareMon
@	waitstate
@	compare VAR_0x8004, PARTY_SIZE
@	goto_if_ge FourIsland_PokemonDayCare_ComeAgain
@	specialvar VAR_RESULT, CountPartyAliveNonEggMons_IgnoreVar0x8004Slot
@	compare VAR_RESULT, 0
@	goto_if_eq FourIsland_PokemonDayCare_OnlyOneAliveMonInParty
@	specialvar VAR_0x8005, GetSelectedMonNicknameAndSpecies
@	waitse
@	playmoncry VAR_0x8005, 0
@	msgbox DayCare_Text_WellRaiseYourMon
@	waitmoncry
@	special StoreSelectedPokemonInDaycare
@	incrementgamestat GAME_STAT_USED_DAYCARE
@	specialvar VAR_RESULT, GetDaycareState
@	compare VAR_RESULT, DAYCARE_ONE_MON
@	goto_if_eq FourIsland_PokemonDayCare_CanRaiseOneMore
@	release
	end

FourIsland_PokemonDayCare_ComeAgain:: @ 81719F7
@	msgbox DayCare_Text_ComeAgain
@	release
	end

FourIsland_PokemonDayCare_CanRaiseOneMore:: @ 8171A01
@	msgbox DayCare_Text_WeCanRaiseOneMore, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_GiveMonToRaise
@	goto FourIsland_PokemonDayCare_ComeAgain
	end

FourIsland_PokemonDayCare_OnlyOneMonInParty:: @ 8171A1A
@	msgbox DayCare_Text_YouHaveJustOneMon
@	release
	end

FourIsland_PokemonDayCare_OnlyOneAliveMonInParty:: @ 8171A24
@	msgbox DayCare_Text_WhatWillYouBattleWith
@	release
	end

FourIsland_PokemonDayCare_EggWaiting:: @ 8171A2E
@	msgbox DayCare_Text_HusbandWasLookingForYou
@	release
	end

FourIsland_PokemonDayCare_MonHasGrownXLevels:: @ 8171A38
@	msgbox DayCare_Text_YourMonHasGrownXLevels
@	return

FourIsland_PokemonDayCare_DisplayLevelsGained:: @ 8171A41
@	specialvar VAR_RESULT, GetNumLevelsGainedFromDaycare
@	compare VAR_RESULT, 0
@	call_if_ne FourIsland_PokemonDayCare_MonHasGrownXLevels
@	return

FourIsland_PokemonDayCare_OneMonInDaycare:: @ 8171A52
@	msgbox DayCare_Text_GoodToSeeYou
@	setvar VAR_0x8004, 0
@	call FourIsland_PokemonDayCare_DisplayLevelsGained
@	msgbox DayCare_Text_WeCanRaiseOneMore, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_GiveMonToRaise
@	msgbox DayCare_Text_TakeYourMonBack, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_TryRetrieveMon
@	goto FourIsland_PokemonDayCare_ComeAgain
	end

FourIsland_PokemonDayCare_TryRetrieveMon:: @ 8171A90
@	specialvar VAR_RESULT, CalculatePlayerPartyCount
@	compare VAR_RESULT, PARTY_SIZE
@	goto_if_eq FourIsland_PokemonDayCare_NoRoomInParty
@	specialvar VAR_RESULT, GetDaycareState
@	setvar VAR_0x8004, 0
@	compare VAR_RESULT, DAYCARE_ONE_MON
@	goto_if_eq FourIsland_PokemonDayCare_CostPrompt
@	special ShowDaycareLevelMenu
@	waitstate
@	copyvar VAR_0x8004, VAR_RESULT
@	compare VAR_RESULT, DAYCARE_EXITED_LEVEL_MENU
@	goto_if_eq FourIsland_PokemonDayCare_ComeAgain
@	goto FourIsland_PokemonDayCare_CostPrompt
	end

FourIsland_PokemonDayCare_CostPrompt:: @ 8171ACF
@	special GetDaycareCost
@	msgbox DayCare_Text_ItWillCostX, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_CheckEnoughMoney
@	goto FourIsland_PokemonDayCare_ComeAgain
	end

FourIsland_PokemonDayCare_CheckEnoughMoney:: @ 8171AEB
@	specialvar VAR_RESULT, IsEnoughForCostInVar0x8005
@	compare VAR_RESULT, TRUE
@	goto_if_eq FourIsland_PokemonDayCare_RetrieveMon
@	msgbox DayCare_Text_NotEnoughMoney
@	release
	end

FourIsland_PokemonDayCare_RetrieveMon:: @ 8171B05
@	applymovement LOCALID_DAYCARE_WOMAN, FourIsland_PokemonDayCare_Movement_RetrieveMon
@	waitmovement 0
@	specialvar VAR_RESULT, TakePokemonFromDaycare
@	special SubtractMoneyFromVar0x8005
@	playse SE_RS_SHOP
@	msgbox DayCare_Text_HeresYourMon
@	waitse
@	playmoncry VAR_RESULT, 0
@	textcolor 3
@	msgbox DayCare_Text_TookBackMon
@	call EventScript_RestorePrevTextColor
@	waitmoncry
@	specialvar VAR_RESULT, GetDaycareState
@	compare VAR_RESULT, DAYCARE_ONE_MON
@	goto_if_eq FourIsland_PokemonDayCare_AskRetrieveOtherMon
@	goto FourIsland_PokemonDayCare_ComeAgain
	end

FourIsland_PokemonDayCare_AskRetrieveOtherMon:: @ 8171B4E
@	msgbox DayCare_Text_TakeOtherOneBackToo, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_TryRetrieveMon
@	goto FourIsland_PokemonDayCare_ComeAgain
	end

FourIsland_PokemonDayCare_NoRoomInParty:: @ 8171B67
@	msgbox DayCare_Text_YourPartyIsFull
@	release
	end

FourIsland_PokemonDayCare_Movement_RetrieveMon:: @ 8171B71
@	delay_16
@	delay_16
@	face_right
@	delay_16
@	delay_16
@	face_left
@	delay_16
@	delay_16
@	face_up
@	walk_slowest_up
@	set_invisible
@	delay_16
@	delay_16
@	delay_16
@	delay_16
@	delay_16
@	face_down
@	set_visible
@	walk_slowest_down
@	step_end

@ Unused. Possibly a commented script, or a typo end added to the above Movement script
FourIsland_PokemonDayCare_EventScript_UnusedEnd:: @ 8171B85
	end

FourIsland_PokemonDayCare_TwoMonsInDaycare:: @ 8171B86
@	msgbox DayCare_Text_GoodToSeeYou
@	setvar VAR_0x8004, 0
@	call FourIsland_PokemonDayCare_DisplayLevelsGained
@	setvar VAR_0x8004, 1
@	call FourIsland_PokemonDayCare_DisplayLevelsGained
@	msgbox DayCare_Text_TakeYourMonBack, MSGBOX_YESNO
@	compare VAR_RESULT, YES
@	goto_if_eq FourIsland_PokemonDayCare_TryRetrieveMon
@	msgbox DayCare_Text_ComeAgain
@	release
	end

@ Unused
FourIsland_PokemonDayCare_EventScript_UnusedRetrieveMon:: @ 8171BBF
@	special ShowDaycareLevelMenu
@	waitstate
@	compare VAR_RESULT, 2
@	goto_if_eq FourIsland_PokemonDayCare_ComeAgain
@	copyvar VAR_0x8004, VAR_RESULT
@	specialvar VAR_RESULT, TakePokemonFromDaycare
@	msgbox DayCare_Text_HeresYourMon
@	msgbox DayCare_Text_ComeAgain
@	release
	end
